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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
® ® 
® * 
® t 
® *® 
® ® 
* THIS SOFTWARE IS FURNISHED wees A LICENSE AND MAY BE USED AND COPIED * 
* N a DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
® ION OF THE ABOVE Se Cinee OTICE. THIS SOFTWARE OR ANY OTHER * 
* THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY * 

;* PERSON. WO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
*® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
® ® 
* ITY FOR THE USE OR RELIABILITY OF ITS * 
* * 
w ® 
® ® 
*@ ® 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 
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: "Facility: rms32 


this module writes out the Last block 
of a sequential file if at eof and dirty. 
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: Abstract: 
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; Environment: 
; star processor running starlet exec. 
8 ; Author: Ll f laverdure, creation date: 29-march-77 
; Modified By: 
0 v03-003 MCNO001 a del C. 30-Nov-1982 
0000 Last block PY y ty at least Mig" bytes long for foreign 
8 8 magtape, not 18 bytes. 
0000 v03-002 KBT0151 Keith B. Thompson 20-Aug-1982 
44 Reorganize psects 
0000 v03-001 moons Jeffrey W. Horn 2-Jun-1982 
0000 On wetting short block to foriegn mag-tape, don't 
4 round-up byte count. 
; 0 v02-013 JwHOO01 rey W. Horn 20-Jan-1982 
8 On flush clear iFesu. FFB if magtape. 
G09 v02-012 RASO0020 Ron Schaefer 6-Aug-1981 
000 Correct minimum buffer size for magtape. 
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v02-011 RASO016 Ron Schaefer 6-Aug-1981 
Add stream file support. 


V02-010 REFORMAT Ron Schaefer 30-Jul-1980 09:13 
Reformat the source. 
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RMIWTLST WRITE LAST BLOCK SEQ. 16-SEP-1984 00:59: AX/VMS Macro V04-00 Page 4 
v04- RM wiley = WRITE LAST BLOCK, PADDING IF moet 99:33:89 YAMS SRCTRMIUTLST <MARS 1 . (3) 
33 $6 -SBTTL RMSWTLST1 = WRITE LAST BLOCK, PADDING IF AT EOF 
97 34+ 

a 3 3; RMSWTLST1: write last block, padding if at eof 

000 100: Calling sequence: 

$00 194 3 

000 19 3 bsbw rm$wtlst1 

000 105 ; 

000 104 ; Input Parameters: 

0000 106 ; eee dd 

: r mpure area address 

$000 199 : r10 ifab address 

0000 108 ; r irab address 

0000 109 ; r8 rab address 

0000 110; 
0000 111 ; Implicit Inputs: 
0000 11 : 
0000 113 ; the contents of the various internal structures, 

0000 114; in particular: 
0000 115 ; . 
0000 116 ; irb$l_curbdb 

0000 117 ; irb$v_eof 

0000 118 ; irb$w_nrp_of f 
0000 119; bdb$v_drt 
0000 120 ; bdb$w_numb 
0000 121; ifbSb_rfm 
0000 122 ; ifb$v_ansi_d 
0000 123; ifb$l_prim_dev 
44 1¢ : the various inputs to rm$relblk1 and rm$mapblk1 
0000 126 ; Output Parameters: 
0000 127 ; 
0000 128 ; r0 status code 
0000 129; ri-r4,ap destroyed 
0000 130; ; 
0000 13) : Implicit Outputs: 
0000 1 ¢ $ ’ 
0000 3 3 the current bdb is released, with 
0000 134 ; padding and writing if necessary. 

0000 135; : 
0000 136 ; Completion Codes: 
0000 137; 
444 138 ; standard rms, as per rm$relblk1. 

0000 140 ; Side Effects: 

0000 141 ; ; 

0000 145 3 may have switched to running at ast level. 

0000 143; 

ai 144 ;-- 

000 145 

0000 146 RMSWITLST1:: 

000 147 STSTPT WTLST1 

54 20 AY 00 006 148 MOVL IRBSL_CURBDB(R9) ,R4 ; get current bdb 
9 1 OOA 149 BEQL WILXIT ; branch if none 
51 69 1 €1 000¢C 150 BBC #IRBSV_EOF ,(R9) ,REL1 ; branch if not eof : 
4c 0A AG) «6001)—SCsE1.-s«0010—Ss«151 BBC #BDBS$V~DRT.BDB$B_FLGS(R4S,REL1 ; or if buffer not dirty 


RMIWTLST 
v04-0 
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E 
EL 


“xz 
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pad out last block if not full or make 
it a short write if appropriate ft 
(note: unit record device will not be dirty, hence won't come here). 


PUSHL R7 
BSBW RMSMAPBLK1 


set in block 
i non-zer 


m 
r 
r 
MOVZWL JRBSW_NRP_OFF(R9) ,Re ig 
BNEQ 0$ fo) 
R ELEASE ; branch if not magtape 


BBC #DEVSV_SQD, IFBSL_PRIM_DEV( 


OOOCCCCOCOOCOCOCOOOOOoOoOoO wT 


po fololelaleleoleleloleloleleleolelelolo) 


5 The above test causes a pest epe that has been truncated (the only case 

; that could leave a zero length buffer dirty) to have a block written 

: back out so that the truncate really takes effect. For variable length 

3 records an entire block of pad characters is written. For fixed length 

3 records an attempt is made to write a zero tength block, which eventually 
; fails. This is a Legitimate bug, which should be fixed in truncate by 

3 telling the magtape acp that the function is truncate, not backspace, 

3 if and when the acp gets the function. When this occurs the above code 

3 to special case for magtape can be reworked. 


10$: ADOL R2,R1 ; get addr of next byte 
SUBL R1,R7,R0 3; get # bytes left 
BSBW RM$PADBLK1 ; pad out the block 
BBC #DEVSV_SQD,IFBSL_PRIM_DEV(R10), = 

RELEAS ; branch if not magtape 
CLRW IF BSW_FFB(R10) ;_clear first free byte field 
CMPB IFB$B_RFMORG(R10) ,AFABSC_FIX ; fixed Length records? 
BNEQ RELEASE 


—OoW MWOO 
nest OWS 


fixed length records. : 
f tape, write a short block. (at least 18 bytes, 14 for foreign tapes) 


DOWD OVMINIM DNL LLL LLLLL LLL LL LLL LE LOMP PP PVN 


MOVZWL IRBSW_NRP_OFF(R9),R2 ; get #of bytes 
BBS #DEVSO_FOR, IFBSL_PRIM_DEV(R10),20$ ; branch if foreign 
INCL R2 ; round up if not 


omw 


putter big enough? 

at least 18 (already padded) 

skip foreign tapes ; 

buffer big enough for foreign tape? 


K 
at least 14 (already padded) 


PU B BB BANNAN NINN NIAINI ARIPO PINYNINYNINININPININININPINININININININYI NI 2 PO ns ss es es ee ee st 
DBDODODOOOOCOOWOWOWO OOOO 0000 00 09 0909 09 09 09 09 INI NINN NSN NS SNP PAA AOA OOOIUINITIUIVG? «=—_ WO 
CO NAOU SWAY OC ODONAUS WIN $9 OD NOME WIN O OD NAU EWN =O OD NAUSEA — OODONAULSWI OO 


COCO OCOOOSOOSCOSOOCOOCOOCOOOCOSOOOOOOOSOOOCOOOOoOO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSE 


om C= Sm =F oon 
NUMOOCST DWOouwwOw 


o-wo--@ —- @ 


# 
208 CMPW 39 
; Rs 

ral 


RMIWTLST WRITE LAST BLOCK SEQ. 16-SEP-1984 00:59: AX/VMS Macro V04-00 Page 
yO4-000 RM wig - WRITE LAST BLOCK, PADDING IF -SEP=1984 98:33:85 RMS.SRCIRMIWTLST.MAR; 1 ° (3) 
14 AQ4 52 860 $e 98 30$: MOVW R2,BDB$W_NUMB(R4) ; and set length of buffer 
OSE i é 
1: 12 ; release buffer, writing and extending if needed 
5E 14 
OSE 15 RELEASE: 
s7.CE b° B25 18 OVL (SP)+,R7 
FF9OC* 0 $6 17 REL1: BSBW RMSRELBLK1 
OE 50 =E8 64 18 BLBS RO,WTLXIT ; branch if all ok 
50 DD 0067 19 PUSHL R 3; Save status 
OC AB OD Bpee 0 PUSHL RABSL_STV(R8) 
07 310 6C 1 BSBB ; quiet all other io if any 
OC AS 8E 00 B05 ¢ MOVL (SP)+,RABSL_STV(R8) ; restore status 
01 BA 007 POPR #*M<RO> 
05 0074 4 RSB 
0075 5 
0075 6; 
0075 7; quiet all rah/wbh io if any and exit 
0075 228; 
0075 $§3 
FF88' 31 8058 $3 WILXIT: BRW RMSQUIET_SEQMBF ; make sure all io is done and return 
0078 232 - END 


RMIWTLST WRITE LAST BLOCK SEQ. 16-SEP-1984 00:59: AX/VMS Macro V04-00 Page 7 
Symbol table Sets Pi 93:33:85 LRMS SRCIAMIOTL ST AMAR: 1 . (3) 
$$.PSECT_EP = 008 000 
SSRMSTEST 2 8 1A 
SSRMS_PBUGCHK = 000 8 
SSRMS_TBUGCHK = B08 0 
SSRMS_UMODE = SRO NR 
BDBSB_FLGS = 8° Q000A 
BDBSV_DRT = 00000001 
BOBSW_NUMB = 00000014 
DEVSV_FOR = 0000 8 
DEV$V~SQD 2 999 0 
FABSC_FIX = 000 44 
IF BSB_RFMOR z 99000 0 
IFBSL-PRIM_DEV = 00 
IFBSW_FFB = 4 HS 
IRBSL_CURBDB = Oooo S 
IRBSV_EOF = 00000021 
IRBSW_NRP_OFF = 00000044 
PIOSA_TRATE eeeeeree =X 01 
RABSL_STV = 0000000C 
00000061 R 01 
RELEASE OOOO005E R 01 
RMSMAPBLK1 eeeeeeee = =X 01 
RMSPADBLK1 eeekeeee x 01 
RMSQUIET_SEQMBF rekkknne x 01 
RMSRELBLR1 eeeeeeee = X 01 
RMSWILST1 00000000 RG 01 
TPTSL_WTLST1 eerkkeee x 01 
WILKIT 00000075 R 01 
= Se ew ee es me we + 
! Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 
» 8S. & 00000000 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NUOVEC BYTE 
RMSRMS1 00000078 ¢ 120.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

poe nano moe ee nr emer 

! Performance indicators ! 

$e wen mwa woe sore enn wm c eee 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.07 00:00:01.01 
Command processing 125 Ba: 0:00.76 0:00:07.04 
Pass 1 256 0:00:06.99 BBs Ae ae 
Symbol table sort ° 00:00:00.99 0: $30) +43 
Pass 2 6 8:8 7:01.36 0:00:50.19 
Symbol table output 5 0:00: 8.98 0: a Sot 
Psect synopsis output 3 0:0 +S 0:00:00.02 
Cross-reference output 8:03: 0.0 Sy Be 
Assembler run totals 482 00:00:10.2 0:01:16. 


The working set Limit was 1350 pages. : : 
40127 bytes ‘79 pages) of virtual memory were used to buffer the intermediate code. 
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There were 40 pages of symbol table ‘og > al = d to hold 800 non-local ag 3 local symbols. 
source Lines were read in Pass 1, use 9,1 object records in Pass 2. 
ne 
+ 


é pages of wirtual memory were —* to set macros. 


eens sara Besos e noes seae seas $ 


Se eeeeee ee eeeeeane Se eeeen 


Macro Library name Macros defined 


-$ 55SDUA28:CRMS. OBJ JRAS . aye ! 7 
$255$DUA28:(SYS.OB, (LIB 0 
$255$DUA28: aye IBIS TARLET. Ble: :2 4 

Tesaee (all Libraries) 11 


886 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMIWTLST/OBJ=OBJ$:RMIWTLST MSRC$:RMTWILST/UPDATE=(ENHS:RMIWTLST) +EXECML$/LIB+LIB$:RMS/LIB 
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